10 POKE53281,0:POKE53280,0:PRINT"[147][158]";
30 SS$="                                        "
40 FORI=1TO08:PRINT"[169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][155][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223]";:NEXT
50 FORI=1TO12:PRINT"[152][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][151][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169]";:NEXT
60 PRINT"[152][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][151][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169]"
70 POKE2023,PEEK(2022):POKE56295,PEEK(56294)
80 PRINT"[154][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]";
90 PRINT"[159]                                        ";
100 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
110 FORI=217TO242:POKEI,PEEK(I)OR128:NEXT
120 POKE214,5:PRINT:FORI=1TO10:PRINTTAB(4)"[221][155]                              [146][221]"
130 NEXT:POKE214,6:POKE211,4:SYS58732
140 PRINT"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
150 PRINTTAB(5)"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
160 POKE214,16:POKE211,4:SYS58732
170 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
180 PRINTTAB(5)"[145][145][151][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]":POKE214,8:PRINT
190 A$="[208][160][193][160][201][160][206][160][212][160][160][160][194][160][217][160][160][160][206][160][213][160][205] [194][160][197] [210]":GOSUB250:X=PEEK(214)
195 PRINT"[159]"SPC(20-LEN(A$)/2)A$
200 POKE214,X:PRINT"[145]";:A$="BY [202]ON [205]ATTSON":GOSUB250
210 A$="[208][213][194][204][201][211][200][197][196][160][207][206][160][204][207][193][196][211][212][193][210][160]#73":GOSUB250
220 A$="[211][213][194][211][195][210][201][208][212][201][207][206][211] 1-800-831-2694":GOSUB250
230 A$="([195]) 1990 [211]OFTDISK":GOSUB250
240 GOTO260
250 PRINTSPC(20-LEN(A$)/2)"[155]"A$:RETURN
260 GOSUB440
270 POKE214,20:POKE211,4:SYS58732
280 PRINT"[159]1. [210][213][206][160][208][193][201][206][212][160][194][217][160][206][213][205][194][197][210]
290 [153]"2. (null)(null)ATNSTR$/(null)(null)RIGHT$(null)(null) (null)ATN(null)(null)ATN(null)
300 PRINT"3. [210][197][212][213][210][206][160][212][207][160][204][207][193][196][211][212][193][210]
310 [153]""
320 [161]A$:[139]A$[179]"1"[176]A$[177]"3"[167]320
330 C[178]1024[170](19[170][197](A$))[172]40[170]5:[129]I[178]C[164]C[170]30:[151]I,[194](I)[176]128:[130]
340 [145][197](A$)[137]350,360,370
350 F$[178]"PAINT BY NUMBER":[137]380
360 F$[178]"PAINT MANUAL":[137]380
370 F$[178]"HELLO CONNECT"
380 [153]"";:[129]I[178]1[164]18:[153]SS$;:[130]
390 [129]I[178]217[164]242:[151]I,[194](I)[176]128:[130]
400 [159]15,8,15,"R0:"[170]F$[170]"="[170]F$:[132]15,ER:[160]15
410 [139]ER[179][177]63[167][153]"":[128]
420 [153]"STOPLOAD"[199](34)F$[199](34)",8"
430 [151]631,13:[151]632,82:[151]633,213:[151]634,13:[151]198,4:[128]
440 [151]214,19:[158]58732:[129]I[178]1[164]5
450 [153]"OPEN                                      ":[130]:[153]"":[142]